hh_r_silc_2023 <- r_silc_2023 %>% 
  group_by(country, hh_id) %>% 
  mutate(
    n_employed = sum(econ_status == "Employed", na.rm = TRUE),
    n_retired = sum(econ_status == "Retired", na.rm = TRUE),
    n_persons = n()
  ) %>% 
  slice(1) %>% 
  ungroup %>% 
  mutate(across(c(country, urbanisation, region), as_factor)) %>% 
  mutate(
    r_urbanisation = if_else(is.na(urbanisation), "Not available", urbanisation) %>% 
      factor(., levels = c(
        "Cities (DB010>=2021), Densely populated area (EE,LV:1,2=1) (DB010<2021)",
        "Towns and suburbs (MT:2,3=2) (DB010>=2021), Intermediate area (MT:2,3=2) (DB010<2021)",
        "Rural areas (DB010>=2021), Thinly populated area (DB010<2021)",
        "Not available"
      ), 
        labels = c("Cities", "Towns and suburbs", "Rural areas",  "N/A")
      ), 
    total_disposable_income_before_social_transfers_eqi = 
      total_disposable_income_before_social_transfers / consumption_units
  ) %>% 
  group_by(country) %>% 
  mutate(disposable_income_before_quantiles = as.numeric(cut(total_disposable_income_before_social_transfers, breaks = 50))) %>% 
  ungroup()
calculate_dimensions <- function(df){
  df %>% 
    mutate(
      dim_affordability = housing_overburden,
      dim_insecurity = arrears_mortgage_rent %in% c("Yes, once", "Yes, twice or more") |
          arrears_utility %in% c("Yes, once", "Yes, twice or more"),
      dim_quality = case_when(
        is.na(overcrowded_eurostat) ~ NA,
        TRUE ~ (overcrowded_eurostat |
          ability_to_keep_warm == "No"),
      ),
      dim_quality2 = case_when(
        is.na(overcrowded_eurostat) ~ NA,
        TRUE ~ (overcrowded_eurostat |
                  ability_to_keep_warm == "No" |
                  bath_shower %in% c("No", "Yes, shared") |
                  toilet %in% c("No", "Yes, shared") |
                  leaks_damp == "Yes"),
      ),
      dim_locality =
        probs_noise == "Yes" |
          probs_crime == "Yes" |
          probs_noise == "Yes",
    )
}

Czechia

m_out <- matchit(takeup_allowance_housing ~ n_children + n_employed + 
          n_retired + n_persons + total_disposable_income_before_social_transfers_eqi + 
          # country + 
            region + r_urbanisation + tenure_status, 
        # exact = ~ country + tenure_status, 
        method = "nearest",
        distance = "mahalanobis",
        replace = TRUE,
        exact = ~ n_children + n_employed + n_persons + n_retired + 
          tenure_status + disposable_income_before_quantiles + 
          r_urbanisation + region,
        data = hh_r_silc_2023 %>% 
          filter(country == "Czech Republic") %>% 
          filter(!is.na(takeup_allowance_housing)) %>% 
          filter(!is.na(tenure_status)))

summary(m_out)
## 
## Call:
## matchit(formula = takeup_allowance_housing ~ n_children + n_employed + 
##     n_retired + n_persons + total_disposable_income_before_social_transfers_eqi + 
##     region + r_urbanisation + tenure_status, data = hh_r_silc_2023 %>% 
##     filter(country == "Czech Republic") %>% filter(!is.na(takeup_allowance_housing)) %>% 
##     filter(!is.na(tenure_status)), method = "nearest", distance = "mahalanobis", 
##     exact = ~n_children + n_employed + n_persons + n_retired + 
##         tenure_status + disposable_income_before_quantiles + 
##         r_urbanisation + region, replace = TRUE)
## 
## Summary of Balance for All Data:
##                                                     Means Treated Means Control
## n_children                                                 0.4644        0.2119
## n_employed                                                 0.2949        0.8768
## n_retired                                                  0.4814        0.6907
## n_persons                                                  2.0881        2.0946
## total_disposable_income_before_social_transfers_eqi     5371.4541    13574.8806
## regionCZ01                                                 0.1085        0.1071
## regionCZ02                                                 0.0508        0.1260
## regionCZ03                                                 0.0678        0.1241
## regionCZ04                                                 0.1492        0.1038
## regionCZ05                                                 0.1051        0.1447
## regionCZ06                                                 0.1492        0.1722
## regionCZ07                                                 0.1220        0.1070
## regionCZ08                                                 0.2475        0.1151
## r_urbanisationCities                                       0.4373        0.3077
## r_urbanisationTowns and suburbs                            0.3424        0.3367
## r_urbanisationRural areas                                  0.2203        0.3556
## tenure_statusOwner without outstanding mortgage            0.2407        0.6334
## tenure_statusOwner with outstanding mortgage               0.0169        0.1206
## tenure_statusTenant, rent at market price                  0.6949        0.1554
## tenure_statusTenant, rent at reduced price                 0.0271        0.0111
## tenure_statusTenant, rent free                             0.0203        0.0795
## disposable_income_before_quantiles                         9.2542       12.2687
##                                                     Std. Mean Diff. Var. Ratio
## n_children                                                   0.2810     2.4966
## n_employed                                                  -1.0801     0.3547
## n_retired                                                   -0.3632     0.5546
## n_persons                                                   -0.0044     1.6645
## total_disposable_income_before_social_transfers_eqi         -2.1715     0.2607
## regionCZ01                                                   0.0044          .
## regionCZ02                                                  -0.3419          .
## regionCZ03                                                  -0.2241          .
## regionCZ04                                                   0.1272          .
## regionCZ05                                                  -0.1291          .
## regionCZ06                                                  -0.0646          .
## regionCZ07                                                   0.0460          .
## regionCZ08                                                   0.3066          .
## r_urbanisationCities                                         0.2612          .
## r_urbanisationTowns and suburbs                              0.0120          .
## r_urbanisationRural areas                                   -0.3264          .
## tenure_statusOwner without outstanding mortgage             -0.9187          .
## tenure_statusOwner with outstanding mortgage                -0.8031          .
## tenure_statusTenant, rent at market price                    1.1718          .
## tenure_statusTenant, rent at reduced price                   0.0988          .
## tenure_statusTenant, rent free                              -0.4192          .
## disposable_income_before_quantiles                          -2.3643     0.1615
##                                                     eCDF Mean eCDF Max
## n_children                                             0.0505   0.1159
## n_employed                                             0.0970   0.3104
## n_retired                                              0.0533   0.1558
## n_persons                                              0.0327   0.1496
## total_disposable_income_before_social_transfers_eqi    0.3914   0.6410
## regionCZ01                                             0.0014   0.0014
## regionCZ02                                             0.0751   0.0751
## regionCZ03                                             0.0563   0.0563
## regionCZ04                                             0.0453   0.0453
## regionCZ05                                             0.0396   0.0396
## regionCZ06                                             0.0230   0.0230
## regionCZ07                                             0.0150   0.0150
## regionCZ08                                             0.1323   0.1323
## r_urbanisationCities                                   0.1296   0.1296
## r_urbanisationTowns and suburbs                        0.0057   0.0057
## r_urbanisationRural areas                              0.1353   0.1353
## tenure_statusOwner without outstanding mortgage        0.3928   0.3928
## tenure_statusOwner with outstanding mortgage           0.1037   0.1037
## tenure_statusTenant, rent at market price              0.5395   0.5395
## tenure_statusTenant, rent at reduced price             0.0161   0.0161
## tenure_statusTenant, rent free                         0.0592   0.0592
## disposable_income_before_quantiles                     0.0814   0.5646
## 
## Summary of Balance for Matched Data:
##                                                     Means Treated Means Control
## n_children                                                 0.0764        0.0764
## n_employed                                                 0.1847        0.1847
## n_retired                                                  0.7261        0.7261
## n_persons                                                  1.2548        1.2548
## total_disposable_income_before_social_transfers_eqi     6751.9760     6774.2358
## regionCZ01                                                 0.1529        0.1529
## regionCZ02                                                 0.0382        0.0382
## regionCZ03                                                 0.0510        0.0510
## regionCZ04                                                 0.1083        0.1083
## regionCZ05                                                 0.0892        0.0892
## regionCZ06                                                 0.1274        0.1274
## regionCZ07                                                 0.1338        0.1338
## regionCZ08                                                 0.2994        0.2994
## r_urbanisationCities                                       0.4586        0.4586
## r_urbanisationTowns and suburbs                            0.3376        0.3376
## r_urbanisationRural areas                                  0.2038        0.2038
## tenure_statusOwner without outstanding mortgage            0.3439        0.3439
## tenure_statusOwner with outstanding mortgage               0.0064        0.0064
## tenure_statusTenant, rent at market price                  0.6051        0.6051
## tenure_statusTenant, rent at reduced price                 0.0127        0.0127
## tenure_statusTenant, rent free                             0.0318        0.0318
## disposable_income_before_quantiles                         9.3057        9.3057
##                                                     Std. Mean Diff. Var. Ratio
## n_children                                                   0.0000     0.9977
## n_employed                                                   0.0000     0.9977
## n_retired                                                    0.0000     0.9977
## n_persons                                                   -0.0000     0.9977
## total_disposable_income_before_social_transfers_eqi         -0.0059     0.9441
## regionCZ01                                                   0.0000          .
## regionCZ02                                                   0.0000          .
## regionCZ03                                                   0.0000          .
## regionCZ04                                                   0.0000          .
## regionCZ05                                                   0.0000          .
## regionCZ06                                                   0.0000          .
## regionCZ07                                                   0.0000          .
## regionCZ08                                                   0.0000          .
## r_urbanisationCities                                         0.0000          .
## r_urbanisationTowns and suburbs                              0.0000          .
## r_urbanisationRural areas                                    0.0000          .
## tenure_statusOwner without outstanding mortgage              0.0000          .
## tenure_statusOwner with outstanding mortgage                 0.0000          .
## tenure_statusTenant, rent at market price                    0.0000          .
## tenure_statusTenant, rent at reduced price                   0.0000          .
## tenure_statusTenant, rent free                               0.0000          .
## disposable_income_before_quantiles                           0.0000     0.9977
##                                                     eCDF Mean eCDF Max
## n_children                                             0.0000   0.0000
## n_employed                                             0.0000   0.0000
## n_retired                                              0.0000   0.0000
## n_persons                                              0.0000   0.0000
## total_disposable_income_before_social_transfers_eqi    0.0078   0.0573
## regionCZ01                                             0.0000   0.0000
## regionCZ02                                             0.0000   0.0000
## regionCZ03                                             0.0000   0.0000
## regionCZ04                                             0.0000   0.0000
## regionCZ05                                             0.0000   0.0000
## regionCZ06                                             0.0000   0.0000
## regionCZ07                                             0.0000   0.0000
## regionCZ08                                             0.0000   0.0000
## r_urbanisationCities                                   0.0000   0.0000
## r_urbanisationTowns and suburbs                        0.0000   0.0000
## r_urbanisationRural areas                              0.0000   0.0000
## tenure_statusOwner without outstanding mortgage        0.0000   0.0000
## tenure_statusOwner with outstanding mortgage           0.0000   0.0000
## tenure_statusTenant, rent at market price              0.0000   0.0000
## tenure_statusTenant, rent at reduced price             0.0000   0.0000
## tenure_statusTenant, rent free                         0.0000   0.0000
## disposable_income_before_quantiles                     0.0000   0.0000
##                                                     Std. Pair Dist.
## n_children                                                   0.0000
## n_employed                                                   0.0000
## n_retired                                                    0.0000
## n_persons                                                    0.0000
## total_disposable_income_before_social_transfers_eqi          0.1205
## regionCZ01                                                   0.0000
## regionCZ02                                                   0.0000
## regionCZ03                                                   0.0000
## regionCZ04                                                   0.0000
## regionCZ05                                                   0.0000
## regionCZ06                                                   0.0000
## regionCZ07                                                   0.0000
## regionCZ08                                                   0.0000
## r_urbanisationCities                                         0.0000
## r_urbanisationTowns and suburbs                              0.0000
## r_urbanisationRural areas                                    0.0000
## tenure_statusOwner without outstanding mortgage              0.0000
## tenure_statusOwner with outstanding mortgage                 0.0000
## tenure_statusTenant, rent at market price                    0.0000
## tenure_statusTenant, rent at reduced price                   0.0000
## tenure_statusTenant, rent free                               0.0000
## disposable_income_before_quantiles                           0.0000
## 
## Sample Sizes:
##               Control Treated
## All           8225.       295
## Matched (ESS)  115.72     157
## Matched        134.       157
## Unmatched     8091.       138
## Discarded        0.         0
plot(summary(m_out))

m_data <- match_data(m_out) %>% 
  calculate_dimensions()
  
m_data %>% 
  group_by(takeup_allowance_housing) %>% 
  summarise(across(c(starts_with("dim")), mean)) %>% 
  knitr::kable()
takeup_allowance_housing dim_affordability dim_insecurity dim_quality dim_quality2 dim_locality
FALSE 0.4850746 0.0447761 0.3880597 0.4179104 0.2313433
TRUE 0.6878981 0.0636943 0.4140127 0.4904459 0.2611465
glm(dim_insecurity ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_3nj0z2ivpxm6i4vry4xk
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -1.723**
(0.542)
takeup_allowance_housingTRUE 0.311
(0.542)
total_disposable_income_before_social_transfers_eqi 0.000**
(0.000)
Num.Obs. 291
AIC 119.8
BIC 130.8
Log.Lik. -56.893
F 5.120
RMSE 0.22
glm(dim_quality ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_q7ta0cxbafjhsxpxsxqb
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) 0.628+
(0.331)
takeup_allowance_housingTRUE 0.059
(0.248)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 291
AIC 381.3
BIC 392.3
Log.Lik. -187.656
F 7.634
RMSE 0.48
glm(dim_quality2 ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_4aw3hexcnuapzif1bsle
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) 0.727*
(0.333)
takeup_allowance_housingTRUE 0.257
(0.244)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 291
AIC 389.9
BIC 400.9
Log.Lik. -191.928
F 7.758
RMSE 0.48
glm(dim_locality ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_8592pb5hr2aho1oukj25
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -0.732*
(0.345)
takeup_allowance_housingTRUE 0.139
(0.275)
total_disposable_income_before_social_transfers_eqi 0.000+
(0.000)
Num.Obs. 291
AIC 328.5
BIC 339.5
Log.Lik. -161.264
F 1.535
RMSE 0.43
glm(overcrowded_eurostat ~ takeup_allowance_housing + 
    total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_arhla3r5hpa3ju2lebcu
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -0.267
(0.360)
takeup_allowance_housingTRUE -0.797**
(0.309)
total_disposable_income_before_social_transfers_eqi 0.000**
(0.000)
Num.Obs. 291
AIC 278.1
BIC 289.1
Log.Lik. -136.049
F 6.115
RMSE 0.38

Finland

fi_m_out <- matchit(takeup_allowance_housing ~ n_children + n_employed + 
          n_retired + n_persons + total_disposable_income_before_social_transfers_eqi + 
          # country + 
            region + r_urbanisation + tenure_status, 
        # exact = ~ country + tenure_status, 
        method = "nearest",
        distance = "mahalanobis",
        replace = TRUE,
        exact = ~ n_children + n_employed + n_persons + n_retired + 
          tenure_status + disposable_income_before_quantiles + 
          r_urbanisation + region,
        data = hh_r_silc_2023 %>% 
          filter(country == "Suomi") %>% 
          filter(!is.na(takeup_allowance_housing)) %>% 
          filter(!is.na(tenure_status)))

summary(fi_m_out)
## 
## Call:
## matchit(formula = takeup_allowance_housing ~ n_children + n_employed + 
##     n_retired + n_persons + total_disposable_income_before_social_transfers_eqi + 
##     region + r_urbanisation + tenure_status, data = hh_r_silc_2023 %>% 
##     filter(country == "Suomi") %>% filter(!is.na(takeup_allowance_housing)) %>% 
##     filter(!is.na(tenure_status)), method = "nearest", distance = "mahalanobis", 
##     exact = ~n_children + n_employed + n_persons + n_retired + 
##         tenure_status + disposable_income_before_quantiles + 
##         r_urbanisation + region, replace = TRUE)
## 
## Summary of Balance for All Data:
##                                                     Means Treated Means Control
## n_children                                                 0.2736        0.2971
## n_employed                                                 0.5786        1.1690
## n_retired                                                  0.1950        0.5223
## n_persons                                                  1.9908        2.4270
## total_disposable_income_before_social_transfers_eqi    12550.3346    35776.7217
## regionFI19                                                 0.2745        0.2651
## regionFI1B                                                 0.3022        0.2988
## regionFI1C                                                 0.1867        0.2045
## regionFI1D                                                 0.2366        0.2316
## r_urbanisationCities                                       0.5564        0.3570
## r_urbanisationTowns and suburbs                            0.2819        0.3127
## r_urbanisationRural areas                                  0.1617        0.3303
## tenure_statusOwner without outstanding mortgage            0.0841        0.4320
## tenure_statusOwner with outstanding mortgage               0.1026        0.4180
## tenure_statusTenant, rent at market price                  0.4113        0.0796
## tenure_statusTenant, rent at reduced price                 0.4002        0.0619
## tenure_statusTenant, rent free                             0.0018        0.0085
## disposable_income_before_quantiles                         1.0536        1.2328
##                                                     Std. Mean Diff. Var. Ratio
## n_children                                                  -0.0305     1.1173
## n_employed                                                  -0.7926     0.7182
## n_retired                                                   -0.7429     0.3260
## n_persons                                                   -0.2838     1.4224
## total_disposable_income_before_social_transfers_eqi         -1.6753     0.0609
## regionFI19                                                   0.0211          .
## regionFI1B                                                   0.0075          .
## regionFI1C                                                  -0.0457          .
## regionFI1D                                                   0.0117          .
## r_urbanisationCities                                         0.4012          .
## r_urbanisationTowns and suburbs                             -0.0684          .
## r_urbanisationRural areas                                   -0.4578          .
## tenure_statusOwner without outstanding mortgage             -1.2536          .
## tenure_statusOwner with outstanding mortgage                -1.0395          .
## tenure_statusTenant, rent at market price                    0.6740          .
## tenure_statusTenant, rent at reduced price                   0.6905          .
## tenure_statusTenant, rent free                              -0.1546          .
## disposable_income_before_quantiles                          -0.6719     0.1161
##                                                     eCDF Mean eCDF Max
## n_children                                             0.0060   0.0321
## n_employed                                             0.1181   0.2971
## n_retired                                              0.0818   0.1729
## n_persons                                              0.0401   0.3379
## total_disposable_income_before_social_transfers_eqi    0.3853   0.6446
## regionFI19                                             0.0094   0.0094
## regionFI1B                                             0.0034   0.0034
## regionFI1C                                             0.0178   0.0178
## regionFI1D                                             0.0050   0.0050
## r_urbanisationCities                                   0.1993   0.1993
## r_urbanisationTowns and suburbs                        0.0308   0.0308
## r_urbanisationRural areas                              0.1686   0.1686
## tenure_statusOwner without outstanding mortgage        0.3479   0.3479
## tenure_statusOwner with outstanding mortgage           0.3154   0.3154
## tenure_statusTenant, rent at market price              0.3317   0.3317
## tenure_statusTenant, rent at reduced price             0.3383   0.3383
## tenure_statusTenant, rent free                         0.0066   0.0066
## disposable_income_before_quantiles                     0.0134   0.1484
## 
## Summary of Balance for Matched Data:
##                                                     Means Treated Means Control
## n_children                                                 0.1017        0.1017
## n_employed                                                 0.5847        0.5847
## n_retired                                                  0.2240        0.2240
## n_persons                                                  1.5811        1.5811
## total_disposable_income_before_social_transfers_eqi    12817.0781    14763.7388
## regionFI19                                                 0.2748        0.2748
## regionFI1B                                                 0.3257        0.3257
## regionFI1C                                                 0.1937        0.1937
## regionFI1D                                                 0.2058        0.2058
## r_urbanisationCities                                       0.5521        0.5521
## r_urbanisationTowns and suburbs                            0.2966        0.2966
## r_urbanisationRural areas                                  0.1513        0.1513
## tenure_statusOwner without outstanding mortgage            0.0920        0.0920
## tenure_statusOwner with outstanding mortgage               0.0944        0.0944
## tenure_statusTenant, rent at market price                  0.4068        0.4068
## tenure_statusTenant, rent at reduced price                 0.4068        0.4068
## tenure_statusTenant, rent free                             0.0000        0.0000
## disposable_income_before_quantiles                         1.0400        1.0400
##                                                     Std. Mean Diff. Var. Ratio
## n_children                                                   0.0000     0.9938
## n_employed                                                   0.0000     0.9938
## n_retired                                                    0.0000     0.9938
## n_persons                                                    0.0000     0.9938
## total_disposable_income_before_social_transfers_eqi         -0.1404     1.0108
## regionFI19                                                   0.0000          .
## regionFI1B                                                   0.0000          .
## regionFI1C                                                   0.0000          .
## regionFI1D                                                   0.0000          .
## r_urbanisationCities                                         0.0000          .
## r_urbanisationTowns and suburbs                              0.0000          .
## r_urbanisationRural areas                                    0.0000          .
## tenure_statusOwner without outstanding mortgage              0.0000          .
## tenure_statusOwner with outstanding mortgage                 0.0000          .
## tenure_statusTenant, rent at market price                    0.0000          .
## tenure_statusTenant, rent at reduced price                   0.0000          .
## tenure_statusTenant, rent free                               0.0000          .
## disposable_income_before_quantiles                           0.0000     0.9938
##                                                     eCDF Mean eCDF Max
## n_children                                              0.000   0.0000
## n_employed                                              0.000   0.0000
## n_retired                                               0.000   0.0000
## n_persons                                               0.000   0.0000
## total_disposable_income_before_social_transfers_eqi     0.033   0.1489
## regionFI19                                              0.000   0.0000
## regionFI1B                                              0.000   0.0000
## regionFI1C                                              0.000   0.0000
## regionFI1D                                              0.000   0.0000
## r_urbanisationCities                                    0.000   0.0000
## r_urbanisationTowns and suburbs                         0.000   0.0000
## r_urbanisationRural areas                               0.000   0.0000
## tenure_statusOwner without outstanding mortgage         0.000   0.0000
## tenure_statusOwner with outstanding mortgage            0.000   0.0000
## tenure_statusTenant, rent at market price               0.000   0.0000
## tenure_statusTenant, rent at reduced price              0.000   0.0000
## tenure_statusTenant, rent free                          0.000   0.0000
## disposable_income_before_quantiles                      0.000   0.0000
##                                                     Std. Pair Dist.
## n_children                                                   0.0000
## n_employed                                                   0.0000
## n_retired                                                    0.0000
## n_persons                                                    0.0000
## total_disposable_income_before_social_transfers_eqi          0.3214
## regionFI19                                                   0.0000
## regionFI1B                                                   0.0000
## regionFI1C                                                   0.0000
## regionFI1D                                                   0.0000
## r_urbanisationCities                                         0.0000
## r_urbanisationTowns and suburbs                              0.0000
## r_urbanisationRural areas                                    0.0000
## tenure_statusOwner without outstanding mortgage              0.0000
## tenure_statusOwner with outstanding mortgage                 0.0000
## tenure_statusTenant, rent at market price                    0.0000
## tenure_statusTenant, rent at reduced price                   0.0000
## tenure_statusTenant, rent free                               0.0000
## disposable_income_before_quantiles                           0.0000
## 
## Sample Sizes:
##               Control Treated
## All           7775.      1082
## Matched (ESS)  135.53     826
## Matched        383.       826
## Unmatched     7392.       256
## Discarded        0.         0
plot(summary(fi_m_out))

fi_m_data <- match_data(fi_m_out) %>% 
  calculate_dimensions()
  
fi_m_data %>% 
  group_by(takeup_allowance_housing) %>% 
  summarise(across(c(starts_with("dim")), ~mean(.x, na.rm = TRUE))) %>% 
  knitr::kable()
takeup_allowance_housing dim_affordability dim_insecurity dim_quality dim_quality2 dim_locality
FALSE 0.2140992 0.0939948 0.1801567 0.2146597 0.3717277
TRUE 0.4588378 0.1815981 0.3115152 0.3560146 0.4647202
glm(dim_insecurity ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = fi_m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_2qjbps5xyvnewwdofdpk
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -1.443***
(0.221)
takeup_allowance_housingTRUE 0.448*
(0.206)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 1209
AIC 992.6
BIC 1007.9
Log.Lik. -493.304
F 21.003
RMSE 0.35
glm(dim_quality ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = fi_m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_n8dgc8itj5vmxq6bxh9p
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -0.434*
(0.177)
takeup_allowance_housingTRUE 0.328*
(0.163)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 1208
AIC 1303.2
BIC 1318.5
Log.Lik. -648.594
F 43.745
RMSE 0.43
glm(dim_quality2 ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = fi_m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_mlkn5qnbpgjxcp5ufrah
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -0.325+
(0.168)
takeup_allowance_housingTRUE 0.354*
(0.154)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 1205
AIC 1397.1
BIC 1412.4
Log.Lik. -695.538
F 41.538
RMSE 0.44
glm(dim_locality ~ takeup_allowance_housing + total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = fi_m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_c24kpklqloku5naefu23
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) 0.053
(0.147)
takeup_allowance_housingTRUE 0.173
(0.134)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 1204
AIC 1611.1
BIC 1626.4
Log.Lik. -802.563
F 19.573
RMSE 0.49
glm(overcrowded_eurostat ~ takeup_allowance_housing + 
    total_disposable_income_before_social_transfers_eqi, 
    family = binomial("logit"),
    data = fi_m_data) %>% 
  modelsummary(., stars = TRUE)
tinytable_sty747nvc2jkbqsdo3ih
(1)
+ p < 0.1, * p < 0.05, ** p < 0.01, *** p < 0.001
(Intercept) -0.551**
(0.183)
takeup_allowance_housingTRUE 0.249
(0.169)
total_disposable_income_before_social_transfers_eqi 0.000***
(0.000)
Num.Obs. 1209
AIC 1237.9
BIC 1253.2
Log.Lik. -615.950
F 38.495
RMSE 0.41